perm filename LIBMAC.NDF[PAS,SYS]5 blob sn#631069 filedate 1981-12-30 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	  1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.OLD[PAS,SYS]	12-30-81 16:43	pages 1,1
C00006 ENDMK
CāŠ—;
  1) LIBMAC.MAC[PAS,SYS] and 2) LIBMAC.OLD[PAS,SYS]	12-30-81 16:43	pages 1,1

**** File 1) LIBMAC.MAC[PAS,SYS]/32P/81L
1)	;*** Special SAIL UUO's
1)	;
1)		OPDEF TTYSET [047000400121]
1)		OPDEF CTLV   [047000400001]
1)		OPDEF SETACT [051640000000]
1)	;
1)	;*** START OF VARIANT CODE
1)	;
1)						;TTY state information for SAIL
1)	LINCHR:	0				;Line characteristics
1)	IOSTAT:	0				;Terminal i/o status word
1)	OLDACT: 0				;Old special activation table
1)		0
1)		0
1)		0
1)	 
1)		LOC .JBDDT			;UPDATE .JBDDT
**** File 2) LIBMAC.OLD[PAS,SYS]/32P/81L
2)	;*** START OF VARIANT CODE
2)	;
2)		LOC .JBDDT			;UPDATE .JBDDT
***************


**** File 1) LIBMAC.MAC[PAS,SYS]/32P/222L
1)	;    - Save tty state (SAIL)
1)	;    - SAVE USER REGISTERS
**** File 2) LIBMAC.OLD[PAS,SYS]/32P/208L
2)	;    - SAVE USER REGISTERS


**** File 1) LIBMAC.MAC[PAS,SYS]/32P/226L
1)	;    - Restore tty state (SAIL)
1)	;    - RESTORE USER REGISTERS AND RETURN
1)	;
1)	DEBUG.:	MOVE	AC1	,[XWD -4, [XWD 013000,IOSTAT	;Remember if echoing
1)					   XWD 012000,200	;Turn off NOECHO bit
1)					   XWD 003000,LINCHR	;Remember if special
1)					   XWD 002000,100 ] ]	;activation mode
1)		TTYSET	AC1	,		;Do the above
1)		SETACT	[XWD OLDACT, [OCT 0,0,0,0] ]	;Save old activation table
1)		MOVE	AC1	,RGSTRS		;GET DEBUG-REGISTERS
1)		MOVEI	NEWREG	,DEBSIZE(AC1)
**** File 2) LIBMAC.OLD[PAS,SYS]/32P/211L
2)	;    - RESTORE USER REGISTERS AND RETURN
2)	;
2)	DEBUG.: MOVE	AC1	,RGSTRS		;GET DEBUG-REGISTERS
2)		MOVEI	NEWREG	,DEBSIZE(AC1)
***************


**** File 1) LIBMAC.MAC[PAS,SYS]/32P/240L
1)		SETACT	[XWD 0,OLDACT]		;Restore user's activation table
1)		MOVE	AC1	,IOSTAT		;Get old tty i/o status word
1)		TRNE	AC1	,200		;See if echo should be off
1)		CTLV				; Yes - turn it off
1)		MOVE	AC1	,LINCHR		;Get old tty line characteristics
1)		TLNN	AC1	,100		;See if special activation mode was on
1)		JRST	.+3			; No - skip ahead
1)		MOVE	AC1	,[XWD -1, [XWD 001000,100] ]
1)		TTYSET	AC1	,		; Yes - turn it back on
1)		HRLZ	17	,RGSTRS		;RESTORE USER-REGISTERS
**** File 2) LIBMAC.OLD[PAS,SYS]/32P/218L
2)		HRLZ	17	,RGSTRS		;RESTORE USER-REGISTERS
***************